home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / telecomm / 515 / chekbill / chekbill.spt next >
Text File  |  1991-03-11  |  2KB  |  58 lines
  1. SCRIPT 7 Check GEnie Bill
  2. CLEAR                                  Clear the screen
  3. echo off                               Don't display commands
  4. NOTE
  5. NOTE "                 Check GEnie Billing Script"
  6. NOTE "                      by Fred H. Koch"
  7. NOTE "                          [F.KOCH]"
  8. NOTE
  9. NOTE "This script will capture your GEnie bill for the month(s) specified."
  10. NOTE "This is a Star*Service and has no additional cost.  Enter the"
  11. NOTE "month(s) to check as JAN or APR-MAY or press RETURN for all months."
  12. NOTE "Entering a non-existant month will display all months available."
  13. NOTE
  14. GETSTRING 1                            The month(s) to check
  15. IF SUCCESS                             ESC not pressed
  16.    IF STRING 1 IS ""                   Return pressed for all months
  17.       NOTE "All available months to be checked."
  18.    ENDIF
  19.    NOTE
  20.    NOTE "Enter the path and file name to use for saving the bill list."
  21.    NOTE "Press Return to use GENEBILL.TXT.  Duplicate names bill be appended."
  22.    NOTE
  23. ELSE
  24.    CLEAR
  25.    NOTE
  26.    NOTE "Script aborted."
  27.    GOTO EXIT                           Exit script
  28. ENDIF
  29. GETSTRING 2                            Bill file name
  30. IF SUCCESS                             ESC not pressed
  31.    LOG ONTO 8005                       Bill checking menu
  32.    SENDLINE "3"
  33.    WAITFOR "All]"
  34.    SENDLINE "%1"                       Send month(s) to be checked
  35.    IF STRING 2 IS ""                   Return for default file name
  36.       ;if a path is desired for the billing text replace CAPTURE GENEBILL.TXT
  37.       ;with the line below, after providing the desired path
  38.       ;CAPTURE DRIVE:FOLDER1\FOLDER2\GENEBILL.TXT
  39.       CAPTURE GENEBILL.TXT             Open capture file
  40.    ELSE
  41.       ;a default folder path may also be provided for entered file
  42.       ;names, but no check is made if two paths are entered which will
  43.       ;cause an error.  Replace the CAPTURE %2 with the line below
  44.       ;CAPTURE DRIVE:FOLDER1\FOLDER2\%2
  45.       CAPTURE %2                       Open capture with entered file name
  46.    ENDIF
  47.    WAITFORPROMPT                       Wait until bill list done
  48.    ENDCAPTURE                          Close the capture file
  49.    LOG OFF                             Log off GEnie
  50. ELSE
  51.    CLEAR
  52.    NOTE
  53.    NOTE "Script aborted."
  54. ENDIF
  55. :EXIT
  56. ENDSCRIPT
  57.  
  58.